home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / MISC / HCAL-27 / QUADRAT.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1995-11-12  |  1.3 KB  |  62 lines
  1. 10  'QUADRAT - 17 FEB 87  rev. 12 NOV 95
  2. 20  IF EX$=""THEN EX$="EXIT"
  3. 30  CLS:KEY OFF
  4. 40  COLOR 7,0,5
  5. 50  PI=3.14159
  6. 60  L$=STRING$(26,196)
  7. 70  UL$=STRING$(80,205)
  8. 80  COLOR 15,1
  9. 90  PRINT " QUADRATIC EQUATION";TAB(61)"by George C. Murphy ";
  10. 100  COLOR 5,0:PRINT STRING$(80,223);
  11. 110  COLOR 7,0
  12. 120  '
  13. 130  '.....start
  14. 140  LOCATE 13,22
  15. 150  COLOR 0,7:PRINT " Press 1 to continue or 0 to EXIT..... ":COLOR 7,0
  16. 160  Z$=INKEY$:IF Z$=""THEN 160
  17. 170  IF Z$="0"THEN CLS:RUN EX$
  18. 180  IF Z$="1"THEN 200
  19. 190  GOTO 350
  20. 200  LOCATE CSRLIN-1:PRINT STRING$(80,32);:LOCATE CSRLIN-1
  21. 210  VIEW PRINT 3 TO 24:CLS:VIEW PRINT:LOCATE 3
  22. 220  X$(1)="a":X$(2)="b":X$(3)="c"
  23. 230  GOTO 470
  24. 240  '
  25. 250  VIEW PRINT 3 TO 24:CLS:VIEW PRINT:LOCATE 3
  26. 260  '
  27. 270  IF Z=1 THEN COLOR 15,3 ELSE COLOR 7,0
  28. 280  LOCATE CSRLIN,2:PRINT X$(1);
  29. 290  COLOR 7,0:PRINT "x<UNK! {FD22}>;
  30. 300  IF Z=2 THEN COLOR 15,3 ELSE COLOR 7,0
  31. 310  IF VAL (X$(2))>=0 THEN PRINT "+";
  32. 320  PRINT X$(2);
  33. 330  COLOR 7,0:PRINT "x=";
  34. 340  IF Z=3 THEN COLOR 15,3 ELSE COLOR 7,0
  35. 350  PRINT X$(3)
  36. 360  IF Z=0 THEN PRINT L$:GOTO 500
  37. 370  PRINT
  38. 380  COLOR 7,0:LOCATE CSRLIN,2
  39. 390  LOCATE CSRLIN-1:PRINT STRING$(80,32);:LOCATE CSRLIN-1
  40. 400  PRINT " ENTER:";:COLOR 15,3:PRINT " Hi-lited";
  41. 410  COLOR 7,0
  42. 420  IF Z=2 THEN PRINT "(if negative, enter as a minus quantity e.g. -3 )";
  43. 430  PRINT " factor";
  44. 440  INPUT Y(Z):X$(Z)=STR$(Y(Z))
  45. 450  RETURN
  46. 460  '
  47. 470  FOR Z=1 TO 3:GOSUB 250:NEXT Z
  48. 480  VIEW PRINT 3 TO 24:CLS:VIEW PRINT:LOCATE 3
  49. 490  Z=0:GOSUB 270
  50. 500  A=Y(1):B=Y(2):C=Y(3)
  51. 510  X1=(-B+SQR(B^2+4*A*C))/(2*A)
  52. 520  X2=(-B-SQR(B^2+4*A*C))/(2*A)
  53. 530  VIEW PRINT 5 TO 24:CLS:VIEW PRINT:LOCATE 5
  54. 540  PRINT "  Value of x is either:
  55. 550  PRINT L$
  56. 560  COLOR 15,3:PRINT " ";X1;:COLOR 7,0
  57. 570  PRINT " or ";
  58. 580  COLOR 15,3:PRINT " ";X2:COLOR 7,0
  59. 590  PRINT UL$;
  60. 600  GOTO 130
  61. 610  END
  62.